home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue43 / recalc / UNITCALC.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1998-12-10  |  1.9 KB  |  74 lines
  1. unit unitcalc;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBTables, CalcFlds, CalcTbls, StdCtrls, Mask, DBCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     dtsItem: TDataSource;
  12.     tblItem_: TTable;
  13.     tblItem_BillNum: TFloatField;
  14.     tblItem_ItmNum: TFloatField;
  15.     tblItem_Name: TStringField;
  16.     tblItem_Price: TFloatField;
  17.     tblItem_Tax: TFloatField;
  18.     tblItem_Price_W_Tax: TFloatField;
  19.     edtPrice: TDBEdit;
  20.     edtTax: TDBEdit;
  21.     edtTaxedPrice: TDBEdit;
  22.     Label1: TLabel;
  23.     Label2: TLabel;
  24.     Label3: TLabel;
  25.     edtName: TDBEdit;
  26.     nav: TDBNavigator;
  27.     Label4: TLabel;
  28.     procedure edtPriceExit(Sender: TObject);
  29.     procedure edtTaxedPriceExit(Sender: TObject);
  30.     procedure edtTaxExit(Sender: TObject);
  31.     procedure tblItem_AfterScroll(DataSet: TDataSet);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   Form1: TForm1;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. procedure TForm1.edtPriceExit(Sender: TObject);
  46. begin
  47.   if tblItem_.state in [dsEdit,dsInsert]
  48.   then tblItem_Price_w_Tax.AsFloat := tblItem_Price.AsFLoat +
  49.                                       tblItem_Tax.AsFloat;
  50. end;
  51.  
  52. procedure TForm1.edtTaxedPriceExit(Sender: TObject);
  53. begin
  54.   if tblItem_.state in [dsEdit,dsInsert]
  55.   then tblItem_Price.AsFloat := tblItem_Price_w_Tax.AsFLoat -
  56.                                 tblItem_Tax.AsFloat;
  57. end;
  58.  
  59. procedure TForm1.edtTaxExit(Sender: TObject);
  60. begin
  61.   if tblItem_.state in [dsEdit,dsInsert]
  62.   then tblItem_Price_w_Tax.AsFloat := tblItem_Price.AsFLoat +
  63.                                       tblItem_Tax.AsFloat;
  64. end;
  65.  
  66. procedure TForm1.tblItem_AfterScroll(DataSet: TDataSet);
  67. begin
  68.   tblItem_Price_w_Tax.AsFloat := tblItem_Price.AsFLoat +
  69.                                  tblItem_Tax.AsFloat;
  70. end;
  71.  
  72.  
  73. end.
  74.